home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacMETH 3.2.1 / Sources / MacC2.6 / M2TM.DEF < prev    next >
Encoding:
Modula Definition  |  1992-05-29  |  816 b   |  25 lines  |  [TEXT/MEDT]
  1. DEFINITION MODULE M2TM; (* NW 28.3.83 / 15.12.85 *)
  2.  
  3.   FROM M2DM IMPORT ObjPtr, ObjClass, StrPtr, StrForm, ParPtr, PDPtr;
  4.  
  5.   VAR topScope, Scope: ObjPtr;  (*header of scope located by Find*)
  6.  
  7.   PROCEDURE FindInScope(id: INTEGER; root: ObjPtr): ObjPtr;
  8.   PROCEDURE Find(id: INTEGER): ObjPtr;
  9.   PROCEDURE FindImport(id: INTEGER): ObjPtr;
  10.  
  11.   PROCEDURE NewObj(id: INTEGER; class: ObjClass): ObjPtr;
  12.   PROCEDURE NewStr(form: StrForm): StrPtr;
  13.   PROCEDURE NewPar(ident: INTEGER; isvar: BOOLEAN; last: ParPtr): ParPtr;
  14.   PROCEDURE NewImp(scope, obj: ObjPtr);
  15.  
  16.   PROCEDURE NewScope(kind: ObjClass);
  17.   PROCEDURE CloseScope;
  18.  
  19.   PROCEDURE CheckUDP(obj, node: ObjPtr);
  20.   PROCEDURE MarkHeap;
  21.   PROCEDURE ReleaseHeap;
  22.   PROCEDURE InitTableHandler;
  23.  
  24. END M2TM. (* Copyright Departement Informatik, ETH Zuerich, Switzerland, 1992 *)
  25.